home *** CD-ROM | disk | FTP | other *** search
/ .net (Turkey) 1998 March / .net Internet Dergisi - CD 5.iso / pc / CON_BM / 00299_Script_299 < prev    next >
Text File  |  1997-11-07  |  552b  |  18 lines
  1. on puppetSoundWait thisChannel,thisSound
  2.   puppetSound thisChannel,thisSound
  3.   -- wait a few ticks before checking soundbusy because some old
  4.   -- sound cards return the wrong value if you check soundbusy
  5.   -- right away
  6.   set start = the timer
  7.   repeat while the timer - start < 20
  8.     nothing
  9.   end repeat
  10.   -- let the user escape this loop
  11.   repeat while soundbusy(thisChannel) and not the mouseDown
  12.     updateStage
  13.   end repeat
  14.   -- turn the sound off if the user clicked out of loop
  15.   puppetSound thisChannel,0
  16.   updatestage
  17. end
  18.